unit principal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, pngimage, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Inicio1: TMenuItem;
    Productos1: TMenuItem;
    Ingresarproductonuevo1: TMenuItem;
    Stock1: TMenuItem;
    Consultarstock1: TMenuItem;
    Ventas1: TMenuItem;
    Nuevaventa1: TMenuItem;
    Historial1: TMenuItem;
    Salir1: TMenuItem;
    Clientes1: TMenuItem;
    Agregarclientenuevo1: TMenuItem;
    Verclientes1: TMenuItem;
    Informes1: TMenuItem;
    Stock2: TMenuItem;
    Clientes2: TMenuItem;
    Ventas2: TMenuItem;
    Image1: TImage;
    Hombre1: TMenuItem;
    Mujer1: TMenuItem;
    Pantalon1: TMenuItem;
    Remera1: TMenuItem;
    Cinturon1: TMenuItem;
    Pantalon2: TMenuItem;
    Remera2: TMenuItem;
    Cinturon2: TMenuItem;
    Cuentacorriente1: TMenuItem;
    DeudasSaldos1: TMenuItem;
    Pagos1: TMenuItem;
    Avios1: TMenuItem;
    alleres1: TMenuItem;
    Confecciones1: TMenuItem;
    Nuevoavio1: TMenuItem;
    Modificaravio1: TMenuItem;
    Consultarstockavio1: TMenuItem;
    Agregartallernuevo1: TMenuItem;
    Vertalleres1: TMenuItem;
    Nuevaconfeccion1: TMenuItem;
    Historial2: TMenuItem;
    alleres2: TMenuItem;
    Cobros1: TMenuItem;
    Mercaderiaentalleres1: TMenuItem;
    Bolsa1: TMenuItem;
    Medias1: TMenuItem;
    Avios2: TMenuItem;
    alleres3: TMenuItem;
    procedure Ingresarproductonuevo1Click(Sender: TObject);
    procedure Nuevaventa1Click(Sender: TObject);
    procedure Stock1Click(Sender: TObject);
    procedure Agregarclientenuevo1Click(Sender: TObject);
    procedure Verclientes1Click(Sender: TObject);
    procedure Historial1Click(Sender: TObject);
    procedure Consultarstock1Click(Sender: TObject);
    procedure Clientes2Click(Sender: TObject);
    procedure Pantalon1Click(Sender: TObject);
    procedure Pantalon2Click(Sender: TObject);
    procedure Remera1Click(Sender: TObject);
    procedure Remera2Click(Sender: TObject);
    procedure Cinturon1Click(Sender: TObject);
    procedure Cinturon2Click(Sender: TObject);
    procedure DeudasSaldos1Click(Sender: TObject);
    procedure Pagos1Click(Sender: TObject);
    procedure Nuevaconfeccion1Click(Sender: TObject);
    procedure Nuevoavio1Click(Sender: TObject);
    procedure Agregartallernuevo1Click(Sender: TObject);
    procedure Vertalleres1Click(Sender: TObject);
    procedure Consultarstockavio1Click(Sender: TObject);
    procedure Modificaravio1Click(Sender: TObject);
    procedure Bolsa1Click(Sender: TObject);
    procedure Medias1Click(Sender: TObject);
    procedure Avios2Click(Sender: TObject);
    procedure alleres3Click(Sender: TObject);
    procedure Historial2Click(Sender: TObject);
    procedure Mercaderiaentalleres1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses productonuevo, datamodule, venta, consultarstock, clientenuevo,
  verclientes, historialventas, freporteClientes, reportePantalonHombre,
  reportePantalonMujer, reporteRemeraHombre, reporteRemeraMujer,
  reporteCinturonHombre, reporteCinturonMujer, cuentaCorriente, confeccion,
  avioNuevo, ftallernuevo, vertalleres, consultarStockAvio, reporteBolsa,
  cargarstockmedia, reporteMedias, reporteAvio, reporteTaller, historialcortes,
  mercaderiaEnTalleres;
{$R *.dfm}

procedure TForm1.Agregarclientenuevo1Click(Sender: TObject);
begin
  fclientenuevo.setNuevo;
  fclientenuevo.ShowModal;
end;

procedure TForm1.Agregartallernuevo1Click(Sender: TObject);
begin
  tallerNuevo.ShowModal;
end;

procedure TForm1.alleres3Click(Sender: TObject);
begin
  datamodule1.QreporteTaller.Active := false;
  datamodule1.QreporteTaller.Active := true;
  freporteTaller.QuickRep1.preview;
end;

procedure TForm1.Avios2Click(Sender: TObject);
begin
  datamodule1.QreporteAvio.Active := false;
  datamodule1.QreporteAvio.Active := true;
  freporteAvio.QuickRep1.preview;
end;

procedure TForm1.Bolsa1Click(Sender: TObject);
begin
  datamodule1.QreporteBolsa.Active := false;
  datamodule1.QreporteBolsa.Active := true;
  freporteBolsa.QuickRep1.preview;
end;

procedure TForm1.Cinturon1Click(Sender: TObject);
begin
  datamodule1.QreporteCinturonH.Active := false;
  datamodule1.QreporteCinturonH.Active := true;
  freporteCinturonHombre.QuickRep1.preview;
end;

procedure TForm1.Cinturon2Click(Sender: TObject);
begin
  datamodule1.QreporteCinturonM.Active := false;
  datamodule1.QreporteCinturonM.Active := true;
  freporteCinturonMujer.QuickRep1.preview;
end;

procedure TForm1.Clientes2Click(Sender: TObject);
begin
  freportecliente.QuickRep1.preview;
end;

procedure TForm1.Consultarstock1Click(Sender: TObject);
begin
  fconsultarstock.setConsultar;
  fconsultarstock.ShowModal;
end;

procedure TForm1.Consultarstockavio1Click(Sender: TObject);
begin
  fconsultarstockavio.setConsultar;
  fconsultarstockavio.ShowModal;
end;

procedure TForm1.DeudasSaldos1Click(Sender: TObject);
begin
  fcuentaCorriente.ShowModal;
  fcuentaCorriente.PageControl1.ActivePageIndex := 1;
end;

procedure TForm1.Historial1Click(Sender: TObject);
begin
  fhistorialventas.ShowModal;
end;

procedure TForm1.Historial2Click(Sender: TObject);
begin
fhistorialcortes.ShowModal;
end;

procedure TForm1.Ingresarproductonuevo1Click(Sender: TObject);
begin
  fconsultarstock.entrePorConsultar := false;
  fconsultarstock.entrePorModificar := false;
  productonuevof.ShowModal;
end;

procedure TForm1.Medias1Click(Sender: TObject);
begin
  datamodule1.QreporteMedia.Active := false;
  datamodule1.QreporteMedia.Active := true;
  freporteMedias.QuickRep1.preview;
end;

procedure TForm1.Mercaderiaentalleres1Click(Sender: TObject);
begin
FMercaderiaEnTaller.ShowModal;
end;

procedure TForm1.Modificaravio1Click(Sender: TObject);
begin
  fconsultarstockavio.setModificar;
  fconsultarstockavio.ShowModal;
end;

procedure TForm1.Nuevaconfeccion1Click(Sender: TObject);
begin
  fconfeccion.ShowModal;
end;

procedure TForm1.Nuevaventa1Click(Sender: TObject);
begin

  fventa.ShowModal;
end;

procedure TForm1.Nuevoavio1Click(Sender: TObject);
begin
  fAvioNuevo.ShowModal;
end;

procedure TForm1.Pagos1Click(Sender: TObject);
begin
  fcuentaCorriente.ShowModal;
  fcuentaCorriente.PageControl1.ActivePageIndex := 0;
end;

procedure TForm1.Pantalon1Click(Sender: TObject);
begin
  datamodule1.QreportePantalonH.Active := false;
  datamodule1.QreportePantalonH.Active := true;
  freportePantalonHombre.QuickRep1.preview;
end;

procedure TForm1.Pantalon2Click(Sender: TObject);
begin
  datamodule1.QreportePantalonM.Active := false;
  datamodule1.QreportePantalonM.Active := true;
  freportePantalonMujer.QuickRep1.preview;
end;

procedure TForm1.Remera1Click(Sender: TObject);
begin
  datamodule1.QreporteRemeraH.Active := false;
  datamodule1.QreporteRemeraH.Active := true;
  freporteRemeraHombre.QuickRep1.preview;
end;

procedure TForm1.Remera2Click(Sender: TObject);
begin
  datamodule1.QreporteRemeraM.Active := false;
  datamodule1.QreporteRemeraM.Active := true;

  freporteRemeraMujer.QuickRep1.preview;
end;

procedure TForm1.Stock1Click(Sender: TObject);
begin
  fconsultarstock.setModificar;
  fconsultarstock.ShowModal;
end;

procedure TForm1.Verclientes1Click(Sender: TObject);
begin
  fverclientes.ShowModal;
end;

procedure TForm1.Vertalleres1Click(Sender: TObject);
begin
  fvertalleres.ShowModal;
end;

end.
